﻿Public Class CUsuario
    Private _intId As Integer
    Private _strClave As String
    Private _strNombre As String
    Private _strEstatus As String
    Private _blnActivo As Boolean
    Private _blnNuevo As Boolean

    Public Sub New()
        Me._blnNuevo = True
    End Sub

    Public Property Id As Integer
        Get
            Id = Me._intId
        End Get
        Set(value As Integer)
            Me._intId = value
        End Set
    End Property

    Public Property Clave As String
        Get
            Clave = Me._strClave
        End Get
        Set(value As String)
            Me._strClave = value
        End Set
    End Property

    Public Property Nombre As String
        Get
            Nombre = Me._strNombre
        End Get
        Set(value As String)
            Me._strNombre = value
        End Set
    End Property

    Public Property Nuevo As Boolean
        Get
            Nuevo = Me._blnNuevo
        End Get
        Set(value As Boolean)
            Me._blnNuevo = value
        End Set
    End Property

    Public Property Activo As Boolean
        Get
            Activo = Me._blnActivo
        End Get
        Set(value As Boolean)
            Me._blnActivo = value
        End Set
    End Property

    Public Property Estatus As String
        Get
            Estatus = Me._strEstatus
        End Get
        Set(value As String)
            Me._strEstatus = value
        End Set
    End Property
End Class
